CompuServe CD 495W/Compuserve XTreme Edition 495W.iso/shopping/toyota/toyota.dir/00273.ls

Text File | 1995-08-09 | 430 b | 19 lines

on mouseDown
  puppetSprite(the clickOn, 1)
  set mySprite to the clickOn
  set the locV of sprite mySprite to the locV of sprite mySprite + 2
  set the locH of sprite mySprite to the locH of sprite mySprite + 2
  updateStage()
  if not soundBusy(1) then
    sfx("buzzer.aif")
  end if
  repeat while the mouseDown and rollOver(mySprite)
    nothing()
  end repeat
  puppetSprite(the clickOn, 0)
end

on mouseUp
  go("boing")
end